home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / fopen.arc / FOPDEMO.FRM (.txt) next >
Visual Basic Form  |  1991-06-25  |  2KB  |  47 lines

  1.     FOpenDemo
  2. Win3 Style File Open Demo
  3. Form1
  4. Demo1
  5. FullName: 
  6. Demo2
  7.     ThePath: 
  8. Demo3
  9. TheFileName: 
  10. Demo4
  11. ThePattern: 
  12. &File
  13. FileOpen
  14. &Open
  15. MenuSeparator1
  16. &Exit
  17. FileOpen_Click
  18. FullName
  19. ThePattern
  20.     FormTitle
  21.     FOpenForm
  22. Modal
  23. demo1
  24. caption
  25. demo2
  26. ThePath
  27. demo3
  28. TheFileName
  29. demo4
  30. Done_Click
  31. FileOpen_Click
  32.  Before calling FOPEN.FRM we can specify a new pattern (ThePattern) a new path
  33.  (ThePath) and a different Form Title.  Change FullName to an empty string.a
  34.  you can also combine patterns, e.g. ThePattern = "*.BAS;*.FRM;*.TXT"R
  35. Demo File Open
  36.  We want to show the form Modal and Unload it after completion (no reason to
  37.  waste resources).
  38.  The demo prints out the user's selection.  Note: FullName will be an empty string if
  39.  the user cancels.  So check FullName on return from FOPEN to see whether to process
  40.  the file.
  41. No File Selected
  42. FullName: 
  43. ThePath: "
  44. TheFileName: "
  45. ThePattern: 
  46. Done_Click
  47.